home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
vol6n14.arc
/
PCMAP.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-08-16
|
5KB
|
79 lines
100 REM -- BASIC PROGRAM TO CREATE PCMAP.COM
110 OPEN "PCMAP.COM" AS #1 LEN = 1
120 FIELD #1,1 AS A$
130 CHECKSUM = 0
140 FOR I = 1 TO 59
150 LINESUM = 0
160 FOR J = 1 TO 8
170 READ BYTE
180 CHECKSUM = CHECKSUM + BYTE
190 LINESUM = LINESUM + BYTE
200 IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
210 PUT #1
220 NEXT J
230 READ LINECHECK
240 IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
250 NEXT I
260 CLOSE
270 IF CHECKSUM = 44060 THEN PRINT "Successful Completion!" : END
280 PRINT "COM file is not valid!" : END
290 DATA 233, 136, 0, 80, 67, 77, 65, 80, 738
300 DATA 32, 49, 46, 48, 32, 40, 99, 41, 387
310 DATA 32, 49, 57, 56, 55, 44, 32, 90, 415
320 DATA 105, 102, 102, 45, 68, 97, 118, 105, 742
330 DATA 115, 32, 80, 117, 98, 108, 105, 115, 770
340 DATA 104, 105, 110, 103, 32, 67, 111, 114, 746
350 DATA 112, 46, 13, 10, 10, 36, 26, 82, 335
360 DATA 111, 98, 101, 114, 116, 32, 76, 46, 694
370 DATA 32, 72, 117, 109, 109, 101, 108, 83, 731
380 DATA 101, 103, 109, 101, 110, 116, 32, 80, 752
390 DATA 97, 114, 97, 103, 114, 97, 112, 104, 838
400 DATA 115, 32, 32, 32, 32, 80, 114, 111, 548
410 DATA 103, 114, 97, 109, 13, 10, 36, 67, 549
420 DATA 79, 77, 77, 65, 78, 68, 46, 67, 557
430 DATA 79, 77, 40, 85, 110, 107, 110, 111, 719
440 DATA 119, 110, 41, 40, 70, 114, 101, 101, 696
450 DATA 41, 32, 32, 32, 32, 32, 32, 32, 265
460 DATA 36, 0, 0, 186, 3, 1, 180, 9, 415
470 DATA 205, 33, 180, 48, 205, 33, 60, 3, 767
480 DATA 114, 4, 254, 6, 138, 1, 51, 219, 787
490 DATA 142, 195, 38, 128, 62, 0, 0, 77, 642
500 DATA 116, 3, 67, 235, 243, 139, 195, 64, 1062
510 DATA 38, 139, 14, 1, 0, 59, 193, 117, 561
520 DATA 241, 139, 22, 2, 0, 252, 191, 213, 1060
530 DATA 2, 38, 139, 14, 1, 0, 160, 137, 491
540 DATA 1, 10, 192, 116, 17, 254, 200, 11, 801
550 DATA 201, 116, 6, 139, 53, 59, 206, 116, 896
560 DATA 25, 131, 199, 17, 235, 235, 254, 6, 1102
570 DATA 137, 1, 139, 193, 11, 201, 117, 3, 802
580 DATA 139, 195, 64, 137, 5, 199, 69, 2, 810
590 DATA 0, 0, 38, 139, 54, 3, 0, 67, 301
600 DATA 139, 195, 3, 222, 1, 117, 2, 190, 869
610 DATA 123, 1, 11, 201, 117, 6, 185, 6, 650
620 DATA 0, 235, 23, 144, 59, 193, 117, 97, 868
630 DATA 38, 139, 54, 60, 0, 128, 62, 137, 618
640 DATA 1, 1, 117, 20, 190, 103, 1, 185, 618
650 DATA 11, 0, 131, 199, 4, 14, 7, 243, 609
660 DATA 164, 176, 36, 170, 14, 31, 235, 65, 891
670 DATA 128, 62, 138, 1, 0, 116, 48, 78, 571
680 DATA 86, 31, 59, 14, 1, 0, 117, 39, 347
690 DATA 70, 86, 31, 51, 246, 70, 78, 173, 805
700 DATA 11, 192, 117, 250, 173, 139, 238, 77, 1197
710 DATA 172, 10, 192, 117, 251, 78, 139, 206, 1165
720 DATA 78, 59, 245, 116, 5, 128, 60, 92, 783
730 DATA 117, 246, 70, 43, 206, 235, 187, 14, 1118
740 DATA 31, 185, 9, 0, 190, 114, 1, 235, 765
750 DATA 177, 142, 195, 59, 218, 116, 3, 233, 1143
760 DATA 67, 255, 186, 71, 1, 180, 9, 205, 974
770 DATA 33, 190, 213, 2, 138, 14, 137, 1, 728
780 DATA 50, 237, 232, 25, 0, 232, 22, 0, 798
790 DATA 139, 214, 180, 9, 205, 33, 131, 198, 1109
800 DATA 13, 186, 100, 1, 180, 9, 205, 33, 727
810 DATA 226, 232, 180, 76, 205, 33, 173, 232, 1357
820 DATA 8, 0, 186, 129, 1, 180, 9, 205, 718
830 DATA 33, 195, 80, 138, 196, 232, 1, 0, 875
840 DATA 88, 80, 81, 177, 4, 210, 232, 89, 961
850 DATA 232, 3, 0, 88, 36, 15, 4, 144, 522
860 DATA 39, 20, 64, 39, 82, 138, 208, 180, 770
870 DATA 2, 205, 33, 90, 195, 0, 0, 0, 525